home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / WORKDISC / !Forthmacs / spread / riscos < prev    next >
Text File  |  1997-05-07  |  643b  |  27 lines
  1. only forth also definitions  decimal
  2. : expect    cursor-on expect cursor-off ;
  3. : key        cursor-on key cursor-off ;
  4. : skey        cursor-on skey cursor-off ;
  5. vocabulary spread spread also  definitions
  6.  
  7. \ Portability: Terminal control
  8.  
  9. : blot    ( column# -- )        drop kill-line  ;
  10.  
  11. fload spread/spread.fth
  12. spread also
  13. : serve-spread    ( -- )
  14.     astring astring locals| bin-name cmd |
  15.     p" <Forthmacs$Dir>.^." bin-name "copy
  16.     application-name bin-name "cat
  17.     bin-name save-forth quit ;
  18. ' serve-spread is quit-spread
  19. ' bye is prompt
  20.  
  21. : (cold-hook
  22.     (cold-hook
  23.     ['] serve-spread is quit-spread
  24.     cursor-off spreadsheet ;
  25.     ' (cold-hook is cold-hook
  26. cursor-off spreadsheet
  27.